home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / src / nusum.lisp < prev    next >
Encoding:
Text File  |  2003-02-09  |  37.8 KB  |  1,099 lines
  1. ;;; -*-  Mode: Lisp; Package: Maxima; Syntax: Common-Lisp; Base: 10 -*- ;;;;
  2. ;;;Translated on: 4/21/85 11:00:16
  3. (in-package "MAXIMA")
  4.  
  5. (EVAL-WHEN (COMPILE EVAL LOAD)
  6.        (EVAL-WHEN (COMPILE EVAL LOAD)
  7.               (DEFPROP $DVA T TRANSLATED)
  8.               (ADD2LNC '$DVA $PROPS)
  9.               (DEFMTRFUN ($DVA $ANY MDEFMACRO NIL NIL)
  10.                          ($VAR)
  11.                          NIL
  12.                          (MBUILDQ-SUBST (LIST (CONS '$VAR $VAR))
  13.                                         '(($DEFINE_VARIABLE) $VAR 
  14.                                           ((MQUOTE) $VAR) $ANY)))))
  15. (EVAL-WHEN (COMPILE EVAL LOAD)
  16.        (MEVAL* '(($MODEDECLARE) $%N $ANY))
  17.        (MEVAL* '(($DECLARE) $%N $SPECIAL))
  18.        NIL
  19.        (DEF-MTRVAR $%N '$%N))
  20. (EVAL-WHEN (COMPILE EVAL LOAD)
  21.        (MEVAL* '(($MODEDECLARE) $%PW $ANY))
  22.        (MEVAL* '(($DECLARE) $%PW $SPECIAL))
  23.        NIL
  24.        (DEF-MTRVAR $%PW '$%PW))
  25. (EVAL-WHEN (COMPILE EVAL LOAD)
  26.        (MEVAL* '(($MODEDECLARE) $%F $ANY))
  27.        (MEVAL* '(($DECLARE) $%F $SPECIAL))
  28.        NIL
  29.        (DEF-MTRVAR $%F '$%F))
  30. (EVAL-WHEN (COMPILE EVAL LOAD)
  31.        (MEVAL* '(($MODEDECLARE) $%F1 $ANY))
  32.        (MEVAL* '(($DECLARE) $%F1 $SPECIAL))
  33.        NIL
  34.        (DEF-MTRVAR $%F1 '$%F1))
  35. (EVAL-WHEN (COMPILE EVAL LOAD)
  36.        (MEVAL* '(($MODEDECLARE) $L% $ANY))
  37.        (MEVAL* '(($DECLARE) $L% $SPECIAL))
  38.        NIL
  39.        (DEF-MTRVAR $L% '$L%))
  40. (EVAL-WHEN (COMPILE EVAL LOAD)
  41.        (MEVAL* '(($MODEDECLARE) $SOLVEP $ANY))
  42.        (MEVAL* '(($DECLARE) $SOLVEP $SPECIAL))
  43.        NIL
  44.        (DEF-MTRVAR $SOLVEP '$SOLVEP))
  45. (EVAL-WHEN (COMPILE EVAL LOAD)
  46.        (MEVAL* '(($MODEDECLARE) $%R $ANY))
  47.        (MEVAL* '(($DECLARE) $%R $SPECIAL))
  48.        NIL
  49.        (DEF-MTRVAR $%R '$%R))
  50. (EVAL-WHEN (COMPILE EVAL LOAD)
  51.        (MEVAL* '(($MODEDECLARE) $P $ANY))
  52.        (MEVAL* '(($DECLARE) $P $SPECIAL))
  53.        NIL
  54.        (DEF-MTRVAR $P '$P))
  55. (EVAL-WHEN (COMPILE EVAL LOAD)
  56.        (MEVAL* '(($MODEDECLARE) $%CF $ANY))
  57.        (MEVAL* '(($DECLARE) $%CF $SPECIAL))
  58.        NIL
  59.        (DEF-MTRVAR $%CF '$%CF)
  60. (proclaim '(special $%0 $%1 $%% $y $maperror $mapprint
  61.             ;$%2 $n $%n $%pw $p $%g ;thing the problem was errset.
  62.             ))
  63. )
  64. (EVAL-WHEN (COMPILE EVAL LOAD)
  65.  (DEFPROP $ALGEBRAICP T TRANSLATED)
  66.  (ADD2LNC '$ALGEBRAICP $PROPS)
  67.  (DEFMTRFUN
  68.   ($ALGEBRAICP $BOOLEAN MDEFINE NIL NIL)
  69.   ($%1)
  70.   NIL
  71.   ((LAMBDA
  72.     NIL
  73.     ((LAMBDA
  74.       (MCATCH)
  75.       (PROG2
  76.        NIL
  77.        (CATCH
  78.         'MCATCH
  79.         (PROGN
  80.          (SIMPLIFY
  81.           ($SUBSTITUTE
  82.            (SIMPLIFY
  83.             (LIST
  84.              '(MEQUAL)
  85.              '&^
  86.              (M-TLAMBDA
  87.               ($%1 $%2)
  88.               NIL
  89.               (COND
  90.                ((NOT ($INTEGERP $%2))
  91.                 ((LAMBDA (X)
  92.                      (COND ((NULL MCATCH)
  93.                             (DISPLA X)
  94.                             (*MERROR '|THROW not within CATCH|)))
  95.                      (THROW 'MCATCH X))
  96.                  T))))))
  97.            $%1))
  98.          NIL))
  99.        (ERRLFUN1 MCATCH)))
  100.      (CONS BINDLIST LOCLIST))))))
  101. (EVAL-WHEN (COMPILE EVAL LOAD)
  102.        (DEFPROP $HICOEF T TRANSLATED)
  103.        (ADD2LNC '$HICOEF $PROPS)
  104.        (DEFMTRFUN ($HICOEF $ANY MDEFINE NIL NIL)
  105.                   ($X $N)
  106.                   NIL
  107.                   (PROGN (SETQ $X (SIMPLIFY ($RATSIMP $X $N)))
  108.                          (SIMPLIFY ($COEFF $X $N (SIMPLIFY ($HIPOW $X $N)))))))
  109. (EVAL-WHEN (COMPILE EVAL LOAD)
  110.        (DEFPROP $GENPOL T TRANSLATED)
  111.        (ADD2LNC '$GENPOL $PROPS)
  112.        (DEFMTRFUN ($GENPOL $ANY MDEFINE NIL NIL)
  113.                   ($N)
  114.                   NIL
  115.                   (COND ((IS-BOOLE-CHECK (MLSP $N 0)) 0)
  116.                         (T (ADD* (SIMPLIFY ($CONCAT '$% $N))
  117.                                  (MUL* (TRD-MSYMEVAL $%N '$%N)
  118.                                        (SIMPLIFY ($GENPOL (ADD* $N -1)))))))))
  119. (EVAL-WHEN (COMPILE EVAL LOAD)
  120.  (DEFPROP $CLIST T TRANSLATED)
  121.  (ADD2LNC '$CLIST $PROPS)
  122.  (DEFMTRFUN
  123.   ($CLIST $ANY MDEFINE NIL NIL)
  124.   ($P)
  125.   NIL
  126.   (COND
  127.    ((LIKE 0 (TRD-MSYMEVAL $P '$P)) '((MLIST)))
  128.    (T
  129.     ($CONS
  130.      (SIMPLIFY
  131.       ($RATDISREP (SETQ $%PW (SIMPLIFY ($RATCOEF (TRD-MSYMEVAL $P '$P)
  132.                                                  (TRD-MSYMEVAL $%N '$%N)
  133.                                                  0)))))
  134.      (SIMPLIFY ($CLIST (RATF (DIV (ADD* (TRD-MSYMEVAL $P '$P)
  135.                                         (*MMINUS (TRD-MSYMEVAL $%PW
  136.                                                                '$%PW)))
  137.                                   (TRD-MSYMEVAL $%N '$%N))))))))))
  138. (EVAL-WHEN (COMPILE EVAL LOAD)
  139.  (DEFPROP $UNSUM T TRANSLATED)
  140.  (ADD2LNC '$UNSUM $PROPS)
  141.  (DEFMTRFUN
  142.   ($UNSUM $ANY MDEFINE NIL NIL)
  143.   ($%G $%N)
  144.   NIL
  145.   (COND
  146.    ((OR ($ATOM $%G)
  147.         (NOT (LIKE ($PART $%G 0) '&+)))
  148.     (SIMPLIFY
  149.      ($FACTOR
  150.       (MUL*
  151.        (ADD*
  152.         (DIV
  153.          ($NUM $%G)
  154.          (SIMPLIFY
  155.           ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N) -1)
  156.                        (TRD-MSYMEVAL $%N '$%N)
  157.                        (SIMPLIFY ($PRODGUNCH ($NUM $%G)
  158.                                              (TRD-MSYMEVAL $%N '$%N)
  159.                                              1)))))
  160.         (*MMINUS
  161.          (DIV
  162.           ($DENOM $%G)
  163.           (SIMPLIFY
  164.            ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N) -1)
  165.                         (TRD-MSYMEVAL $%N '$%N)
  166.                         (SIMPLIFY ($PRODGUNCH ($DENOM $%G)
  167.                                               (TRD-MSYMEVAL $%N '$%N)
  168.                                               1)))))))
  169.        (DIV (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N) -1)
  170.                                    (TRD-MSYMEVAL $%N '$%N)
  171.                                    ($NUM $%G)))
  172.             ($DENOM $%G))))))
  173.    (T
  174.     (SIMPLIFY
  175.      (MAP1 (GETOPR (M-TLAMBDA ($X)
  176.                               NIL
  177.                               (SIMPLIFY ($UNSUM $X
  178.                                                 (TRD-MSYMEVAL $%N '$%N)))))
  179.            $%G))))))
  180. (EVAL-WHEN (COMPILE EVAL LOAD)
  181.  (DEFPROP $PRODFLIP T TRANSLATED)
  182.  (ADD2LNC '$PRODFLIP $PROPS)
  183.  (DEFMTRFUN
  184.   ($PRODFLIP $ANY MDEFINE NIL NIL)
  185.   ($%0)
  186.   NIL
  187.   (SIMPLIFY
  188.    ($SUBSTITUTE
  189.     (LIST
  190.      '(MLIST)
  191.      (SIMPLIFY (LIST '(MEQUAL) (SIMPLIFY ($NOUNIFY '$PRODUCT)) '$PRODUCT))
  192.      (SIMPLIFY
  193.       (LIST '(MEQUAL)
  194.             '$PRODUCT
  195.             (M-TLAMBDA ($%0 $%1 $% $%%)
  196.                        NIL
  197.                        (DIV 1
  198.                             (SIMPLIFY ($PRODU (DIV 1 $%0)
  199.                                               $%1
  200.                                               (TRD-MSYMEVAL $% '$%)
  201.                                               (TRD-MSYMEVAL $%% '$%%))))))))
  202.     $%0))))
  203. (EVAL-WHEN (COMPILE EVAL LOAD)
  204.  (DEFPROP $PRODGUNCH T TRANSLATED)
  205.  (ADD2LNC '$PRODGUNCH $PROPS)
  206.  (DEFMTRFUN
  207.   ($PRODGUNCH $ANY MDEFINE NIL NIL)
  208.   ($%0 $%N $%2)
  209.   NIL
  210.   (SIMPLIFY
  211.    ($SUBSTITUTE
  212.     (LIST
  213.      '(MLIST)
  214.      (SIMPLIFY
  215.       (LIST
  216.        '(MEQUAL)
  217.        (SIMPLIFY ($NOUNIFY '%SIN))
  218.        (M-TLAMBDA&ENV
  219.         (($%0) ($%2))
  220.         NIL
  221.         (MUL*
  222.          (SIMPLIFY
  223.           (LIST '(%SIN)
  224.                 (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  225.                                              $%2)
  226.                                        (TRD-MSYMEVAL $%N '$%N)
  227.                                        $%0))))
  228.          ((LAMBDA
  229.            ($TRIGEXPAND)
  230.            NIL
  231.            (SIMPLIFY
  232.             ($EXPAND
  233.              (DIV
  234.               (SIMPLIFY (LIST '(%SIN) $%0))
  235.               (SIMPLIFY
  236.                (LIST
  237.                 '(%SIN)
  238.                 (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N
  239.                                                            '$%N)
  240.                                              $%2)
  241.                                        (TRD-MSYMEVAL $%N '$%N)
  242.                                        $%0))))))))
  243.           T)))))
  244.      (SIMPLIFY
  245.       (LIST
  246.        '(MEQUAL)
  247.        (SIMPLIFY ($NOUNIFY '$PRODUCT))
  248.        (M-TLAMBDA&ENV
  249.         (($%0 $%1 $% $%3) ($%2))
  250.         NIL
  251.         (DIV
  252.          (MUL*
  253.           (SIMPLIFY
  254.            ($FUNMAKE
  255.             (SIMPLIFY ($NOUNIFY '$PRODUCT))
  256.             (LIST '(MLIST)
  257.                   $%0
  258.                   $%1
  259.                   (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  260.                                                $%2)
  261.                                          (TRD-MSYMEVAL $%N '$%N)
  262.                                          (TRD-MSYMEVAL $% '$%)))
  263.                   (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  264.                                                $%2)
  265.                                          (TRD-MSYMEVAL $%N '$%N)
  266.                                          $%3)))))
  267.           (SIMPLIFY
  268.            ($PRODU
  269.             $%0
  270.             $%1
  271.             (TRD-MSYMEVAL $% '$%)
  272.             (ADD* (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  273.                                                $%2)
  274.                                          (TRD-MSYMEVAL $%N '$%N)
  275.                                          (TRD-MSYMEVAL $% '$%)))
  276.                   -1))))
  277.          (SIMPLIFY
  278.           ($PRODU $%0
  279.                   $%1
  280.                   (ADD* $%3 1)
  281.                   (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  282.                                                $%2)
  283.                                          (TRD-MSYMEVAL $%N '$%N)
  284.                                          $%3))))))))
  285.      (SIMPLIFY
  286.       (LIST
  287.        '(MEQUAL)
  288.        '%BINOMIAL
  289.        (M-TLAMBDA&ENV
  290.         (($%0 $%1) ($%2))
  291.         NIL
  292.         (MUL*
  293.          (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N) $%2)
  294.                                 (TRD-MSYMEVAL $%N '$%N)
  295.                                 (SIMPLIFY `((%BINOMIAL) ,$%0 ,$%1))))
  296.          (SIMPLIFY
  297.           ($PRODU
  298.            (DIV (ADD* $%1 '$%) (ADD* $%0 '$%))
  299.            '$%
  300.            1
  301.            (ADD* (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  302.                                               $%2)
  303.                                         (TRD-MSYMEVAL $%N '$%N)
  304.                                         $%1))
  305.                  (*MMINUS $%1))))
  306.          (SIMPLIFY
  307.           ($PRODU
  308.            (DIV (ADD* (*MMINUS $%1) $%0 '$%)
  309.                 (ADD* (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N
  310.                                                                  '$%N)
  311.                                                    $%2)
  312.                                              (TRD-MSYMEVAL $%N '$%N)
  313.                                              $%1))
  314.                       (*MMINUS $%1)
  315.                       $%0
  316.                       '$%))
  317.            '$%
  318.            1
  319.            (ADD* (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  320.                                               $%2)
  321.                                         (TRD-MSYMEVAL $%N '$%N)
  322.                                         (ADD* $%0 (*MMINUS $%1))))
  323.                  $%1
  324.                  (*MMINUS $%0))))))))
  325.      (SIMPLIFY
  326.       (LIST
  327.        '(MEQUAL)
  328.        '$BETA
  329.        (M-TLAMBDA&ENV
  330.         (($%0 $%1) ($%2))
  331.         NIL
  332.         (MUL*
  333.          (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N) $%2)
  334.                                 (TRD-MSYMEVAL $%N '$%N)
  335.                                 (SIMPLIFY (LIST '($BETA) $%0 $%1))))
  336.          (SIMPLIFY
  337.           ($PRODU (DIV (ADD* $%0 $%1 '$%) (ADD* $%0 '$%))
  338.                   '$%
  339.                   0
  340.                   (ADD* (MUL* (SIMPLIFY ($RATCOEF $%0
  341.                                                   (TRD-MSYMEVAL $%N
  342.                                                                 '$%N)))
  343.                               $%2)
  344.                         -1)))
  345.          (SIMPLIFY
  346.           ($PRODU
  347.            (DIV (ADD* $%0
  348.                       $%1
  349.                       (MUL* $%2
  350.                             (SIMPLIFY ($RATCOEF $%0
  351.                                                 (TRD-MSYMEVAL $%N
  352.                                                               '$%N))))
  353.                       '$%)
  354.                 (ADD* $%1 '$%))
  355.            '$%
  356.            0
  357.            (ADD* (MUL* (SIMPLIFY ($RATCOEF $%1
  358.                                            (TRD-MSYMEVAL $%N '$%N)))
  359.                        $%2)
  360.                  -1)))))))
  361.      (SIMPLIFY
  362.       (LIST
  363.        '(MEQUAL)
  364.        '&!
  365.        (M-TLAMBDA&ENV
  366.         (($%0) ($%2))
  367.         NIL
  368.         (DIV
  369.          (SIMPLIFY `((MFACTORIAL) ,
  370.                      (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N
  371.                                                                 '$%N)
  372.                                                   $%2)
  373.                                             (TRD-MSYMEVAL $%N '$%N)
  374.                                             $%0))))
  375.          (SIMPLIFY
  376.           ($PRODU
  377.            (ADD* $%0 '$%)
  378.            '$%
  379.            1
  380.            (ADD* (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  381.                                               $%2)
  382.                                         (TRD-MSYMEVAL $%N '$%N)
  383.                                         $%0))
  384.                  (*MMINUS $%0))))))))
  385.      (SIMPLIFY
  386.       (LIST
  387.        '(MEQUAL)
  388.        '%GAMMA
  389.        (M-TLAMBDA&ENV
  390.         (($%0) ($%2))
  391.         NIL
  392.         (DIV
  393.          (SIMPLIFY `((%GAMMA) ,
  394.                      (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N
  395.                                                                 '$%N)
  396.                                                   $%2)
  397.                                             (TRD-MSYMEVAL $%N '$%N)
  398.                                             $%0))))
  399.          (SIMPLIFY
  400.           ($PRODU
  401.            (ADD* $%0 '$% -1)
  402.            '$%
  403.            1
  404.            (ADD* (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  405.                                               $%2)
  406.                                         (TRD-MSYMEVAL $%N '$%N)
  407.                                         $%0))
  408.                  (*MMINUS $%0)))))))))
  409.     $%0))))
  410. (EVAL-WHEN (COMPILE EVAL LOAD)
  411.  (DEFPROP $PRODU T TRANSLATED)
  412.  (ADD2LNC '$PRODU $PROPS)
  413.  (DEFMTRFUN
  414.   ($PRODU $ANY MDEFINE NIL NIL)
  415.   ($%0 $%1 $% $%3)
  416.   NIL
  417.   ((LAMBDA
  418.     ($X $Y)
  419.     NIL
  420.     (COND
  421.      ((NOT ($INTEGERP $Y))
  422.       (SIMPLIFY ($FUNMAKE (SIMPLIFY ($NOUNIFY '$PRODUCT))
  423.                           (LIST '(MLIST)
  424.                                 $%0
  425.                                 $%1
  426.                                 (TRD-MSYMEVAL $% '$%)
  427.                                 $%3))))
  428.      ((IS-BOOLE-CHECK (MLSP $Y -1))
  429.       (DIV 1
  430.            (SIMPLIFY ($PRODU $%0
  431.                              $%1
  432.                              (ADD* $%3 1)
  433.                              (ADD* (TRD-MSYMEVAL $% '$%) -1)))))
  434.      (T (DO (($I 0 (f+ 1 $I)))
  435.             ((> $I $Y) '$DONE)
  436.           (SETQ $X (MUL* $X
  437.                          (SIMPLIFY ($SUBSTITUTE (ADD* $I
  438.                                                       (TRD-MSYMEVAL $%
  439.                                                                     '$%))
  440.                                                 $%1
  441.                                                 $%0)))))
  442.         $X)))
  443.    1
  444.    (SIMPLIFY ($RATSIMP (ADD* $%3 (*MMINUS (TRD-MSYMEVAL $% '$%))))))))
  445. (EVAL-WHEN (COMPILE EVAL LOAD)
  446.        (DEFPROP $NUSUM T TRANSLATED)
  447.        (ADD2LNC '$NUSUM $PROPS)
  448.        (DEFMTRFUN ($NUSUM NIL MDEFINE NIL NIL)
  449.                   ($%A $%N $%L $%H)
  450.                   NIL
  451.                   ((LAMBDA ($MAPPRINT $PROGRAMMODE $SOLVENULLWARN)
  452.                        NIL
  453.                        (MAREF 'MQAPPLY
  454.                               (SIMPLIFY ($NUSUML $%A
  455.                                                  (TRD-MSYMEVAL $%N '$%N)
  456.                                                  $%L
  457.                                                  $%H
  458.                                                  '((MLIST))))
  459.                               1))
  460.                    NIL
  461.                    T
  462.                    NIL)))
  463. (EVAL-WHEN (COMPILE EVAL LOAD)
  464.  (DEFPROP $NUSUM T TRANSLATED)
  465.  (ADD2LNC '$NUSUM $PROPS)
  466.  (DEFMTRFUN ($NUSUM $ANY MDEFINE NIL NIL)
  467.             ($%A $%N $%L $%H)
  468.             NIL
  469.             ((LAMBDA ($MAPPRINT $PROGRAMMODE $SOLVENULLWARN)
  470.                  NIL
  471.                  (SIMPLIFY ($FIRST (SIMPLIFY ($NUSUML $%A
  472.                                                       (TRD-MSYMEVAL $%N
  473.                                                                     '$%N)
  474.                                                       $%L
  475.                                                       $%H
  476.                                                       '((MLIST)))))))
  477.              NIL
  478.              T
  479.              NIL)))
  480. (EVAL-WHEN (COMPILE EVAL LOAD)
  481.        (DEFPROP $FUNCSOLVE T TRANSLATED)
  482.        (ADD2LNC '$FUNCSOLVE $PROPS)
  483.        (DEFMTRFUN ($FUNCSOLVE NIL MDEFINE NIL NIL)
  484.                   ($%A $%F)
  485.                   NIL
  486.                   ((LAMBDA ($MAPPRINT $PROGRAMMODE $SOLVENULLWARN)
  487.                        NIL
  488.                        (MAREF 'MQAPPLY
  489.                               (SIMPLIFY ($FUNCSOL $%A
  490.                                                   (TRD-MSYMEVAL $%F '$%F)
  491.                                                   '((MLIST))))
  492.                               1))
  493.                    NIL
  494.                    T
  495.                    NIL)))
  496. (EVAL-WHEN (COMPILE EVAL LOAD)
  497.  (DEFPROP $DIMSUM T TRANSLATED)
  498.  (ADD2LNC '$DIMSUM $PROPS)
  499.  (DEFMTRFUN
  500.   ($DIMSUM $ANY MDEFINE NIL NIL)
  501.   ($%CL)
  502.   NIL
  503.   ((LAMBDA
  504.     (|tr-gensym~128| |tr-gensym~129| |tr-gensym~130| |tr-gensym~131|)
  505.     (UNWIND-PROTECT
  506.      (PROGN
  507.       (MSETCHK '$RATFAC |tr-gensym~128|)
  508.       ((LAMBDA
  509.         ($RATFAC $%CD $%PT $%PW)
  510.         NIL
  511.         (SETQ
  512.          $%CD
  513.          (SIMPLIFY
  514.           (MAP1
  515.            (GETOPR
  516.             (M-TLAMBDA
  517.              ($X)
  518.              NIL
  519.              (SIMPLIFY ($HIPOW (ADD* (SIMPLIFY ($RATSIMP $X))
  520.                                      (DIV 1 (TRD-MSYMEVAL $%N '$%N)))
  521.                                (TRD-MSYMEVAL $%N '$%N)))))
  522.            (LIST '(MLIST)
  523.                  (ADD* (MAREF $%CL 1) (MAREF $%CL 2))
  524.                  (ADD* (MAREF $%CL 1) (*MMINUS (MAREF $%CL 2)))
  525.                  (MAREF $%CL 3)))))
  526.         (MASET (MAX (MAREF $%CD 1) (f+ (MAREF $%CD 2) -1)) $%CD 1)
  527.         (SIMPLIFY
  528.          ($INPART
  529.           (SIMPLIFY
  530.            ($SUBSTITUTE
  531.             (SETQ
  532.              $SOLVEP
  533.              (SIMPLIFY
  534.               ($SOLVE
  535.                (SIMPLIFY
  536.                 ($CLIST
  537.                  (SIMPLIFY
  538.                   ($SUBSTITUTE
  539.                    (SETQ
  540.                     $%PT
  541.                     (SIMPLIFY
  542.                      ($FUNMAKE
  543.                       'LAMBDA
  544.                       (LIST
  545.                        '(MLIST)
  546.                        (LIST '(MLIST) (TRD-MSYMEVAL $%N '$%N))
  547.                        (SIMPLIFY
  548.                         ($GENPOL
  549.                          (COND
  550.                           ((AND
  551.                             (IS-BOOLE-CHECK
  552.                              (MLSP (MAREF $%CD 1)
  553.                                    (MAREF $%CD 2)))
  554.                             ($INTEGERP
  555.                              (SETQ
  556.                               $%PW
  557.                               (SIMPLIFY
  558.                                ($SUBSTITUTE
  559.                                 (SIMPLIFY
  560.                                  ($SOLVE
  561.                                   (SIMPLIFY
  562.                                    ($RATCOEF
  563.                                     (ADD*
  564.                                      (MUL*
  565.                                       (MAREF $%CL 1)
  566.                                       (ADD*
  567.                                        (TRD-MSYMEVAL
  568.                                         $%N
  569.                                         '$%N)
  570.                                        '$%))
  571.                                      (MUL*
  572.                                       (MAREF $%CL 2)
  573.                                       (TRD-MSYMEVAL
  574.                                        $%N
  575.                                        '$%N)))
  576.                                     (TRD-MSYMEVAL $%N
  577.                                                   '$%N)
  578.                                     (MAREF $%CD 2)))
  579.                                   '$%))
  580.                                 '$%)))))
  581.                            (MAXIMUM
  582.                             (LIST
  583.                              (TRD-MSYMEVAL $%PW '$%PW)
  584.                              (ADD* (MAREF $%CD 3)
  585.                                    (*MMINUS (MAREF $%CD
  586.                                                    1))))))
  587.                           (T (ADD* (MAREF $%CD 3)
  588.                                    (*MMINUS (MAREF $%CD 1)))))))))))
  589.                    (SIMPLIFY ($INPART (TRD-MSYMEVAL $%F '$%F) 0))
  590.                    (NCMUL2 $%CL
  591.                            (LIST '(MLIST)
  592.                                  (TRD-MSYMEVAL $%F1 '$%F1)
  593.                                  (TRD-MSYMEVAL $%F '$%F)
  594.                                  1))))))
  595.                ($APPEND (COND (($LISTP (TRD-MSYMEVAL $L% '$L%))
  596.                                (TRD-MSYMEVAL $L% '$L%))
  597.                               (T
  598.                                (SETQ $L% (LIST '(MLIST)
  599.                                                (TRD-MSYMEVAL $L%
  600.                                                              '$L%)))))
  601.                         (SIMPLIFY ($CLIST (SIMPLIFY ($INPART $%PT
  602.                                                              2))))))))
  603.             (PROGN
  604.              (SETQ
  605.               $L%
  606.               (SIMPLIFY
  607.                (MAP1 (GETOPR '&=)
  608.                      (TRD-MSYMEVAL $L% '$L%)
  609.                      (SIMPLIFY ($SUBSTITUTE (TRD-MSYMEVAL $SOLVEP
  610.                                                           '$SOLVEP)
  611.                                             (TRD-MSYMEVAL $L% '$L%))))))
  612.              $%PT)))
  613.           2)))
  614.        |tr-gensym~128|
  615.        |tr-gensym~129|
  616.        |tr-gensym~130|
  617.        |tr-gensym~131|))
  618.      (MSETCHK '$RATFAC (TRD-MSYMEVAL $RATFAC NIL))))
  619.    NIL
  620.    '$%CD
  621.    '$%PT
  622.    '$%PW)))
  623. (EVAL-WHEN (COMPILE EVAL LOAD)
  624.  (DEFPROP $RATSOLVE T TRANSLATED)
  625.  (ADD2LNC '$RATSOLVE $PROPS)
  626.  (DEFMTRFUN
  627.   ($RATSOLVE $ANY MDEFINE NIL NIL)
  628.   ($P $X)
  629.   NIL
  630.   (SIMPLIFY
  631.    (MAPPLY-TR
  632.     '$APPEND
  633.     (MAPLIST_TR
  634.      (M-TLAMBDA&ENV
  635.       (($P) ($X))
  636.       NIL
  637.       (COND
  638.        ((OR (LIKE (SIMPLIFY ($HIPOW (TRD-MSYMEVAL $P '$P) $X)) 1)
  639.             (LIKE (SIMPLIFY ($SUBSTITUTE 0 $X (TRD-MSYMEVAL $P '$P))) 0))
  640.         (SIMPLIFY ($SOLVE (SIMPLIFY ($SUBSTITUTE (M-TLAMBDA ($X $Y)
  641.                                                             NIL
  642.                                                             $X)
  643.                                                  '&^
  644.                                                  (TRD-MSYMEVAL $P '$P)))
  645.                           $X)))
  646.        (T '((MLIST)))))
  647.      (MUL* 2 (POWER (SIMPLIFY ($FACTOR (TRD-MSYMEVAL $P '$P))) 2)))))))
  648. (EVAL-WHEN (COMPILE EVAL LOAD)
  649.  (DEFPROP $PRODSHIFT T TRANSLATED)
  650.  (ADD2LNC '$PRODSHIFT $PROPS)
  651.  (DEFMTRFUN
  652.   ($PRODSHIFT $ANY MDEFINE NIL NIL)
  653.   ($%0 $%2)
  654.   NIL
  655.   (SIMPLIFY
  656.    ($SUBSTITUTE
  657.     (LIST
  658.      '(MLIST)
  659.      (SIMPLIFY (LIST '(MEQUAL) (SIMPLIFY ($NOUNIFY '$PRODUCT)) '$PRODUCT))
  660.      (SIMPLIFY
  661.       (LIST
  662.        '(MEQUAL)
  663.        '$PRODUCT
  664.        (M-TLAMBDA&ENV
  665.         (($%0 $%1 $% $%3) ($%2))
  666.         NIL
  667.         (SIMPLIFY ($PRODU (SIMPLIFY ($SUBSTITUTE (ADD* $%1
  668.                                                        (*MMINUS $%2))
  669.                                                  $%1
  670.                                                  $%0))
  671.                           $%1
  672.                           (ADD* (TRD-MSYMEVAL $% '$%) $%2)
  673.                           (ADD* $%3 $%2)))))))
  674.     $%0))))
  675. (EVAL-WHEN (COMPILE EVAL LOAD)
  676.  (DEFPROP $RFORN T TRANSLATED)
  677.  (ADD2LNC '$RFORN $PROPS)
  678.  (DEFMTRFUN
  679.   ($RFORN $ANY MDEFINE NIL NIL)
  680.   ($%3)
  681.   NIL
  682.   ((LAMBDA
  683.     (|tr-gensym~132| |tr-gensym~133|)
  684.     (UNWIND-PROTECT
  685.      (PROGN
  686.       (MSETCHK '$RATFAC |tr-gensym~133|)
  687.       ((LAMBDA
  688.         ($Y $RATFAC)
  689.         NIL
  690.         (SETQ $P (MUL* (TRD-MSYMEVAL $P '$P)
  691.                        (SIMPLIFY ($PRODU $Y
  692.                                          (TRD-MSYMEVAL $%N '$%N)
  693.                                          (TRD-MSYMEVAL $%N '$%N)
  694.                                          (ADD* (TRD-MSYMEVAL $%N '$%N)
  695.                                                $%3
  696.                                                -1)))))
  697.         (SETQ
  698.          $%R
  699.          (SIMPLIFY
  700.           ($RATSIMP
  701.            (DIV (TRD-MSYMEVAL $%R '$%R)
  702.                 (LIST '(MLIST)
  703.                       (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N
  704.                                                                  '$%N)
  705.                                                    $%3)
  706.                                              (TRD-MSYMEVAL $%N '$%N)
  707.                                              $Y))
  708.                       $Y))))))
  709.        |tr-gensym~132|
  710.        |tr-gensym~133|))
  711.      (MSETCHK '$RATFAC (TRD-MSYMEVAL $RATFAC NIL))))
  712.    (SIMPLIFY ($GCD (MAREF (TRD-MSYMEVAL $%R '$%R) 2)
  713.                    (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N)
  714.                                                 (*MMINUS $%3))
  715.                                           (TRD-MSYMEVAL $%N '$%N)
  716.                                           (MAREF (TRD-MSYMEVAL $%R '$%R)
  717.                                                  1)))))
  718.    T)))
  719. (EVAL-WHEN (COMPILE EVAL LOAD)
  720.  (DEFPROP $RFORM T TRANSLATED)
  721.  (ADD2LNC '$RFORM $PROPS)
  722.  (DEFMTRFUN
  723.   ($RFORM $ANY MDEFINE NIL NIL)
  724.   ($%R)
  725.   NIL
  726.   (COND
  727.    ((IS-BOOLE-CHECK (SIMPLIFY (RATP (DIV (MAREF (TRD-MSYMEVAL $%R '$%R) 1)
  728.                                          (MAREF (TRD-MSYMEVAL $%R '$%R) 2))
  729.                                     (TRD-MSYMEVAL $%N '$%N))))
  730.     (COND (($ALGEBRAICP (TRD-MSYMEVAL $%R '$%R))
  731.            (PROGN (MSETCHK '$GCD '$RED)
  732.                   (SETQ $GCD '$RED))
  733.            (SETQ $ALGEBRAIC T)))
  734.     ((LAMBDA
  735.       ($P)
  736.       NIL
  737.       (SIMPLIFY ($RFORN 1))
  738.       (DO
  739.        (($%3)
  740.         (MDO
  741.          (CDR
  742.           (SIMPLIFY
  743.            ($RATSOLVE
  744.             (SIMPLIFY
  745.              ($RESULTANT
  746.               (MAREF (TRD-MSYMEVAL $%R '$%R) 1)
  747.               (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N '$%N) '$%)
  748.                                      (TRD-MSYMEVAL $%N '$%N)
  749.                                      (MAREF (TRD-MSYMEVAL $%R '$%R) 2)))
  750.               (TRD-MSYMEVAL $%N '$%N)))
  751.             '$%)))
  752.          (CDR MDO)))
  753.        ((NULL MDO) '$DONE)
  754.        (SETQ $%3 (CAR MDO))
  755.        (COND
  756.         ((AND ($INTEGERP (SETQ $%3 (SIMPLIFY ($SUBSTITUTE (LIST '(MLIST)
  757.                                                                 $%3)
  758.                                                           '$%))))
  759.               (IS-BOOLE-CHECK (MGRP $%3 0)))
  760.          (SIMPLIFY ($RFORN $%3)))))
  761.       (LIST '(MLIST)
  762.             (TRD-MSYMEVAL $P '$P)
  763.             (DIV (MAREF (TRD-MSYMEVAL $%R '$%R) 1)
  764.                  (MAREF (TRD-MSYMEVAL $%R '$%R) 2))))
  765.      1))
  766.    (T (SIMPLIFY ($ERROR (DIV (MAREF (TRD-MSYMEVAL $%R '$%R) 1)
  767.                              (MAREF (TRD-MSYMEVAL $%R '$%R) 2))
  768.                         '|&NON-RATIONAL TERM RATIO TO NUSUM|))))))
  769. (EVAL-WHEN (COMPILE EVAL LOAD)
  770.  (DEFPROP $NUSUML T TRANSLATED)
  771.  (ADD2LNC '$NUSUML $PROPS)
  772.  (DEFMTRFUN
  773.   ($NUSUML $ANY MDEFINE NIL NIL)
  774.   ($%A $%N $%L $%H $L%)
  775.   NIL
  776.   (COND
  777.    ((LIKE $%A 0) (LIST '(MLIST) 0))
  778.    (T
  779.     ((LAMBDA
  780.       (|tr-gensym~135| |tr-gensym~136|
  781.                        |tr-gensym~137|
  782.                        |tr-gensym~138|
  783.                        |tr-gensym~139|
  784.                        |tr-gensym~140|
  785.                        |tr-gensym~141|
  786.                        |tr-gensym~142|
  787.                        |tr-gensym~143|
  788.                        |tr-gensym~144|
  789.                        |tr-gensym~145|
  790.                        |tr-gensym~146|
  791.                        |tr-gensym~147|)
  792.       (UNWIND-PROTECT
  793.        (PROGN
  794.         (MSETCHK 'MODULUS |tr-gensym~136|)
  795.         (MSETCHK '$RATFAC |tr-gensym~139|)
  796.         (MSETCHK '$GCD |tr-gensym~140|)
  797.         ((LAMBDA
  798.           ($SOLVEP MODULUS
  799.                    $RV
  800.                    $PRODHACK
  801.                    $RATFAC
  802.                    $GCD
  803.                    $ALGEBRAIC
  804.                    $RATALGDENOM
  805.                    $MATRIX_ELEMENT_MULT
  806.                    $DISPFLAG
  807.                    $MAPERROR
  808.                    $%F
  809.                    $%F1)
  810.           NIL
  811.           (SIMPLIFY ($RATVARS (TRD-MSYMEVAL $%N '$%N)))
  812.           (COND
  813.            ((AND
  814.              (NOT
  815.               (LIKE
  816.                '((MLIST))
  817.                ((LAMBDA
  818.                  (ERRCATCH RET)
  819.                  (COND
  820.                   ((NULL
  821.                     (SETQ
  822.                      RET
  823.                      (ERRSET
  824.                       (PROGN
  825.                        (SETQ
  826.                         $%CF
  827.                         (SIMPLIFY
  828.                          ($DIMSUM
  829.                           (LIST
  830.                            '(MLIST)
  831.                            (*MMINUS
  832.                             ($NUM
  833.                              (MAREF
  834.                               'MQAPPLY
  835.                               (SETQ
  836.                                $%R
  837.                                (SIMPLIFY
  838.                                 ($RFORM
  839.                                  ((LAMBDA ($%A)
  840.                                       NIL
  841.                                       (LIST '(MLIST)
  842.                                             ($NUM $%A)
  843.                                             ($DENOM $%A)))
  844.                                   (SIMPLIFY
  845.                                    ($FACTOR
  846.                                     (DIV
  847.                                      (SIMPLIFY
  848.                                       ($SUBSTITUTE
  849.                                        (ADD*
  850.                                         (TRD-MSYMEVAL
  851.                                          $%N
  852.                                          '$%N)
  853.                                         1)
  854.                                        (TRD-MSYMEVAL
  855.                                         $%N
  856.                                         '$%N)
  857.                                        $%A))
  858.                                      (SIMPLIFY
  859.                                       ($PRODGUNCH
  860.                                        $%A
  861.                                        (TRD-MSYMEVAL
  862.                                         $%N
  863.                                         '$%N)
  864.                                        1)))))))))
  865.                               2)))
  866.                            (SIMPLIFY
  867.                             ($SUBSTITUTE
  868.                              (ADD* (TRD-MSYMEVAL $%N '$%N) -1)
  869.                              (TRD-MSYMEVAL $%N '$%N)
  870.                              ($DENOM
  871.                               (MAREF (TRD-MSYMEVAL $%R '$%R)
  872.                                      2))))
  873.                            (MAREF (TRD-MSYMEVAL $%R '$%R) 1))))))
  874.                       LISPERRPRINT)))
  875.                    (ERRLFUN1 ERRCATCH)))
  876.                  (CONS '(MLIST) RET))
  877.                 (CONS BINDLIST LOCLIST)
  878.                 NIL)))
  879.              (NOT (LIKE '((MLIST)) (TRD-MSYMEVAL $SOLVEP '$SOLVEP))))
  880.             ($CONS
  881.              (PROGN
  882.               (SETQ $%F (DIV (SIMPLIFY ($PRODGUNCH ($NUM $%A)
  883.                                                    (TRD-MSYMEVAL $%N
  884.                                                                  '$%N)
  885.                                                    1))
  886.                              ($DENOM $%A)))
  887.               (SETQ
  888.                $%F1
  889.                (SIMPLIFY
  890.                 ($RATSIMP (SIMPLIFY ($RADCAN (TRD-MSYMEVAL $%CF
  891.                                                            '$%CF))))))
  892.               (SIMPLIFY (MAPPLY-TR '$RATVARS $RV))
  893.               (SETQ
  894.                $%F1
  895.                (SIMPLIFY
  896.                 ($SUBSTITUTE
  897.                  (M-TLAMBDA ($%0 $%1 $% $%3)
  898.                             NIL
  899.                             (SIMPLIFY ($PRODU $%0
  900.                                               $%1
  901.                                               (TRD-MSYMEVAL $% '$%)
  902.                                               $%3)))
  903.                  (SIMPLIFY ($NOUNIFY '$PRODUCT))
  904.                  (ADD*
  905.                   (SIMPLIFY
  906.                    ($FACTOR
  907.                     (SIMPLIFY
  908.                      ($SUBSTITUTE
  909.                       $%H
  910.                       (TRD-MSYMEVAL $%N '$%N)
  911.                       (SIMPLIFY
  912.                        ($FACTOR
  913.                         (DIV
  914.                          (MUL*
  915.                           ($NUM (MAREF (TRD-MSYMEVAL $%R '$%R)
  916.                                        2))
  917.                           (TRD-MSYMEVAL $%F '$%F)
  918.                           (SIMPLIFY
  919.                            ($SUBSTITUTE
  920.                             (ADD* (TRD-MSYMEVAL $%N '$%N) 1)
  921.                             (TRD-MSYMEVAL $%N '$%N)
  922.                             (TRD-MSYMEVAL $%F1 '$%F1))))
  923.                          (MAREF (TRD-MSYMEVAL $%R '$%R) 1))))))))
  924.                   (*MMINUS
  925.                    (SIMPLIFY
  926.                     ($FACTOR
  927.                      (SIMPLIFY
  928.                       ($SUBSTITUTE
  929.                        $%L
  930.                        (TRD-MSYMEVAL $%N '$%N)
  931.                        (SIMPLIFY
  932.                         ($FACTOR
  933.                          (DIV
  934.                           (MUL*
  935.                            $%A
  936.                            (TRD-MSYMEVAL $%F1 '$%F1)
  937.                            (SIMPLIFY
  938.                             ($SUBSTITUTE
  939.                              (ADD* (TRD-MSYMEVAL $%N '$%N)
  940.                                    -1)
  941.                              (TRD-MSYMEVAL $%N '$%N)
  942.                              ($DENOM
  943.                               (MAREF (TRD-MSYMEVAL $%R
  944.                                                    '$%R)
  945.                                      2)))))
  946.                           (MAREF (TRD-MSYMEVAL $%R '$%R) 1)))))))))))))
  947.               (COND
  948.                ((IS-BOOLE-CHECK (SIMPLIFY (RATP $%A
  949.                                                 (TRD-MSYMEVAL $%N
  950.                                                               '$%N))))
  951.                 (SIMPLIFY ($FACTOR (TRD-MSYMEVAL $%F1 '$%F1))))
  952.                (T (TRD-MSYMEVAL $%F1 '$%F1))))
  953.              (TRD-MSYMEVAL $L% '$L%)))
  954.            (T (SIMPLIFY (MAPPLY-TR '$RATVARS $RV))
  955.               (LIST '(MLIST)
  956.                     (SIMPLIFY (MFUNCALL '$SUM
  957.                                         $%A
  958.                                         (TRD-MSYMEVAL $%N '$%N)
  959.                                         $%L
  960.                                         $%H))))))
  961.          |tr-gensym~135|
  962.          |tr-gensym~136|
  963.          |tr-gensym~137|
  964.          |tr-gensym~138|
  965.          |tr-gensym~139|
  966.          |tr-gensym~140|
  967.          |tr-gensym~141|
  968.          |tr-gensym~142|
  969.          |tr-gensym~143|
  970.          |tr-gensym~144|
  971.          |tr-gensym~145|
  972.          |tr-gensym~146|
  973.          |tr-gensym~147|))
  974.        (MSETCHK 'MODULUS (TRD-MSYMEVAL MODULUS 'MODULUS))
  975.        (MSETCHK '$RATFAC (TRD-MSYMEVAL $RATFAC NIL))
  976.        (MSETCHK '$GCD (TRD-MSYMEVAL $GCD '$GCD))))
  977.      NIL
  978.      NIL
  979.      (TRD-MSYMEVAL $RATVARS '$RATVARS)
  980.      T
  981.      T
  982.      '$SPMOD
  983.      NIL
  984.      T
  985.      '&*
  986.      NIL
  987.      NIL
  988.      (SIMPLIFY ($FUNMAKE '$%F (LIST '(MLIST) (TRD-MSYMEVAL $%N '$%N))))
  989.      (SIMPLIFY ($FUNMAKE '$%F
  990.                          (LIST '(MLIST) (ADD* (TRD-MSYMEVAL $%N '$%N) 1)))))))))
  991. (EVAL-WHEN (COMPILE EVAL LOAD)
  992.  (DEFPROP $FUNCSOL T TRANSLATED)
  993.  (ADD2LNC '$FUNCSOL $PROPS)
  994.  (DEFMTRFUN
  995.   ($FUNCSOL $ANY MDEFINE NIL NIL)
  996.   ($%A $%F $L%)
  997.   NIL
  998.   ((LAMBDA
  999.     (|tr-gensym~148| |tr-gensym~149|
  1000.                      |tr-gensym~150|
  1001.                      |tr-gensym~151|
  1002.                      |tr-gensym~152|
  1003.                      |tr-gensym~153|
  1004.                      |tr-gensym~154|
  1005.                      |tr-gensym~155|)
  1006.     (UNWIND-PROTECT
  1007.      (PROGN
  1008.       (MSETCHK '$RATFAC |tr-gensym~148|)
  1009.       ((LAMBDA
  1010.         ($RATFAC $MAPERROR $LINENUM $DISPFLAG $%F1 $%CL $%CM $%N)
  1011.         NIL
  1012.         (SETQ
  1013.          $%F1
  1014.          (SIMPLIFY
  1015.           ($SUBSTITUTE (SIMPLIFY (LIST '(MEQUAL)
  1016.                                        (TRD-MSYMEVAL $%N '$%N)
  1017.                                        (ADD* (TRD-MSYMEVAL $%N '$%N) 1)))
  1018.                        (TRD-MSYMEVAL $%F '$%F))))
  1019.         (SETQ
  1020.          $%CL
  1021.          (SIMPLIFY
  1022.           ($FACTOR
  1023.            (MAREF
  1024.             'MQAPPLY
  1025.             (SIMPLIFY
  1026.              ($AUGCOEFMATRIX
  1027.               (LIST
  1028.                '(MLIST)
  1029.                (SETQ
  1030.                 $%A
  1031.                 ($NUM (SIMPLIFY ($XTHRU (ADD* ($LHS $%A)
  1032.                                               (*MMINUS ($RHS $%A))))))))
  1033.               (LIST '(MLIST)
  1034.                     (TRD-MSYMEVAL $%F1 '$%F1)
  1035.                     (TRD-MSYMEVAL $%F '$%F))))
  1036.             1))))
  1037.         (SETQ $%CM (SIMPLIFY ($RFORM (SIMPLIFY ($REST $%CL -1)))))
  1038.         (MASET
  1039.          (SIMPLIFY
  1040.           ($RATSIMP (DIV (SIMPLIFY ($SUBSTITUTE (ADD* (TRD-MSYMEVAL $%N
  1041.                                                                     '$%N)
  1042.                                                       1)
  1043.                                                 (TRD-MSYMEVAL $%N '$%N)
  1044.                                                 (MAREF $%CM 1)))
  1045.                          (MAREF $%CM 1))))
  1046.          $%CM
  1047.          2)
  1048.         ($APPEND
  1049.          ((LAMBDA
  1050.            (ERRCATCH RET)
  1051.            (COND
  1052.             ((NULL
  1053.               (SETQ
  1054.                RET
  1055.                (ERRSET
  1056.                 (PROGN
  1057.                  (SIMPLIFY
  1058.                   (LIST
  1059.                    '(MEQUAL)
  1060.                    (TRD-MSYMEVAL $%F '$%F)
  1061.                    (SIMPLIFY
  1062.                     ($FACTOR
  1063.                      (DIV
  1064.                       (SIMPLIFY
  1065.                        ($DIMSUM
  1066.                         (SIMPLIFY
  1067.                          ($RATSIMP
  1068.                           (LIST '(MLIST)
  1069.                                 (DIV (MAREF $%CL 1)
  1070.                                      ($NUM (MAREF $%CM 2)))
  1071.                                 (DIV (MAREF $%CL 2)
  1072.                                      ($DENOM (MAREF $%CM 2)))
  1073.                                 (DIV (MUL* (MAREF $%CM 1)
  1074.                                            (MAREF $%CL 3))
  1075.                                      ($DENOM (MAREF $%CM 2))))))))
  1076.                       (MAREF $%CM 1)))))))
  1077.                 LISPERRPRINT)))
  1078.              (ERRLFUN1 ERRCATCH)))
  1079.            (CONS '(MLIST) RET))
  1080.           (CONS BINDLIST LOCLIST)
  1081.           NIL)
  1082.          (TRD-MSYMEVAL $L% '$L%)))
  1083.        |tr-gensym~148|
  1084.        |tr-gensym~149|
  1085.        |tr-gensym~150|
  1086.        |tr-gensym~151|
  1087.        |tr-gensym~152|
  1088.        |tr-gensym~153|
  1089.        |tr-gensym~154|
  1090.        |tr-gensym~155|))
  1091.      (MSETCHK '$RATFAC (TRD-MSYMEVAL $RATFAC NIL))))
  1092.    T
  1093.    NIL
  1094.    (TRD-MSYMEVAL $LINENUM '$LINENUM)
  1095.    NIL
  1096.    '$%F1
  1097.    '$%CL
  1098.    '$%CM
  1099.    (SIMPLIFY ($INPART (TRD-MSYMEVAL $%F '$%F) 1)))))